  10 :return ;for A=0to 9;@(A)=0;next A
  20 clear ;H=rnd (50)-44;A=-80;T=rnd (9);line A,H,4;I=H
  30 A=A+rnd (10);H=H+rnd (9)-T;if H<-44H=-44;T=4
  40 if H>-10T=6
  50 T=T+(T>5)mul 2-rnd (3)+1;if A>78A=79
  60 line A,H,1;if A#79goto 30
  70 H=I;W=rnd (51)-26
  80 for A=-80to 79;line A,-44,4;if PX(A,H)goto 120
  90 for Y=1to 60;if PX(A,H+Y)H=H+Y;goto 120
 100 if (PX(A,H-Y)=0)+(H-Y<-44)next Y
 110 H=H-Y
 120 line A,H,1;next A;S=rnd (2)mul 2-3;G=rnd (3)+2
 130 for P=0to 5step 5;X=rnd (31)-75+(P=5)mul 120;for H=-44to 20;if PX(X,H)next H
 140 Y=H+rnd (5)-3;if Y<-40Y=-40
 150 box X+(P=0)mul 4-2,Y+4,11,15,2;box X,Y,5,5,1;box X+(P=0)mul 2-1,Y-3,3,1,1
 160 line X,Y,4;line X+(P=0)mul 12-6,Y,1;@(P+1)=X;@(P+2)=Y;next P
 170 P=(S=1)mul 5;C=Pdiv 5+1
 180 for N=1to 11;box @(P+1),@(P+2)+1,3,1,3;next N;NT=1
 190 W=W+rnd (9)-5;CX=-9;CY=40;print "WIND";CX=-9;if W TV=95+(W>0)mul 2
 200 print #3,ABS(W)
 210 CX=Smul 51-22;CY=40;A=@(P+4);print "ANGLE",#3,A
 220 CX=Smul 51-22;B=@(P+3);print "BAGS ",#1,Bdiv 10,".",RM
 230 if TR(C)goto 350
 240 K=(KN(C)+128)mul S+(S#1)mul 255;if ABS(K-E)<10goto 300
 250 E=K;A=Kdiv 15mul 5;@(P+4)=A;CY=40;CX=Smul 51+8;print #3,A
 260 gosub 280;X=@(P+1);Y=@(P+2);line X-3mul S,Y,4;box X-5mul S,Y+4,5,9,2
 270 K=Kdiv 100;J=RM;line X-(3+Kdiv 25)mul S,Y+Jdiv 25,1;goto 300
 280 gosub 500+Amul 2mul (A<45)+(90-A)mul 2mul (A>40);if A>45K=Kdiv 100+RMmul 100
 290 return 
 300 if JX(C)=0if JY(C)=0goto 230
 310 B=B+JX(C)mul 10+JY(C);if B<0B=0
 320 if B>99B=99
 330 @(P+3)=B;CX=Smul 51+8;CY=32
 340 print #1,Bdiv 10,".",RM;goto 230
 350 box 0,36,159,16,2;box @(P+1),@(P+2)+1,3,1,1
 360 gosub 280;X=Kdiv 100;Y=RM;R=9
 370 X=-(Xmul Bdiv 100)mul S+Wdiv 2;Y=Ymul Bdiv 100
 380 I=(@(P+1)-3mul S)mul 10;J=@(P+2)mul 10;for N=15to 1step -1;&(21)=32;&(23)=Nmul 16;next N
 390 U=Idiv 10;V=Jdiv 10;box U,V,1,1,3
 400 K=U;L=V;Y=Y-G;I=I+X;J=J+Y;U=Idiv 10;V=Jdiv 10;box K,L,1,1,3;box U,V,1,1,3;if ABS(U)>79box U,V,1,1,2;U=99;goto 430
 410 if V<-40V=-40;goto 430
 420 if (PX(U,V))+(V>20)goto 400
 430 line U,V,4;for N=240to 0step -16;&(23)=N;BC=rnd (3)mul 13+86
 440 line U+rnd (R)-Rdiv 2-1,V+rnd (R)-Rdiv 2,2;next N
 450 BC=7;T=0;E=(S#1)mul 5;U=@(E+1);V=@(E+2);for X=U-2to U+2;for Y=V-2to V+2;if PX(X,Y)T=T+1
 460 if T>13S=-S;goto 170
 470 next Y;next X;if R=9R=19;goto 430
 480 @(P)=@(P)+1;print #5,@(0),"    DESTROYED",@(5)
 490 for N=0to 3000;next N;goto 20
 500 K=9900;return 
 510 K=9908;return 
 520 K=9817;return 
 530 K=9625;return 
 540 K=9334;return 
 550 K=9042;return 
 560 K=8650;return 
 570 K=8157;return 
 580 K=7664;return 
 590 K=7070;return 
:return ; run 